home *** CD-ROM | disk | FTP | other *** search
/ Enter 2005 January / EnterCD 0105.iso / Internet / Norton Internet Security 2005 / NIS_Retail.EXE / Setup / ISCommon / APP / ALEScan.exe / HTML / WIZ-ALES.VBS < prev   
Encoding:
Text File  |  2004-08-31  |  3.6 KB  |  167 lines
  1. '////////////////////////////////////////////////////////////////////////////////////////////
  2. '//
  3. '// PRODUCT: Norton Internet Security/Symantec Desktop Firewall
  4. '//
  5. '// NAME:    wiz-ALEs.vbs (VBScript file for wiz-ALEs.HTM)
  6. '//
  7. '// Copyright (c) 2001 by Symantec Corporation. All rights reserved.
  8. '//
  9. '////////////////////////////////////////////////////////////////////////////////////////////
  10.  
  11. dim nFound
  12. dim bUserStopped
  13. dim g_szBack
  14. dim g_szNext
  15. dim g_szCancel
  16. dim g_szFinish
  17. dim g_bFoundListLoaded
  18. dim g_bScanStarted
  19.  
  20. ' Set a few vars
  21. g_szBack = StrID("BackB")
  22. g_szNext = StrID("NextB")
  23. g_szCancel = StrID("CancelB")
  24. g_szFinish = StrID("FinishB")
  25. g_bFoundListLoaded = false
  26. g_bScanStarted = false
  27. bUserStopped = 0
  28. nFound = 0
  29.  
  30. sub Window_OnLoad()
  31.     dialogheight = "400px"
  32.     dialogWidth = "532px"
  33.     returnValue = ""
  34.     bUserStopped = 0
  35.     PageA.style.display = ""
  36.     BackBtn.disabled = true
  37.  
  38.     ' // Watch for the FREIntegrator to run
  39.     UserManager.WatchForFREIntegStart()
  40.  
  41.     ProdNameA.innerHTML = UserManager.AppTitle
  42.     ProdNameB.innerHTML = UserManager.AppTitle
  43.  
  44.     ' DWong 01/26/01 Note: CheckUserType is defined in wiz-ALEs.js
  45.     CheckUserType()
  46.  
  47.     initDriveList()
  48.     
  49.     OnLoad()    
  50.     
  51.     FixBtnText(false)
  52.     window.focus()
  53. end sub
  54.  
  55. sub Cancel_OnClick()
  56.     returnValue = ""
  57.     window.navigate("res://closeme.xyz")
  58. end sub
  59.  
  60. sub StopBtn_OnClick()
  61.     ' Stop the scanner
  62.     bUserStopped = 1
  63.     NetScan.StopScan
  64. end sub
  65.  
  66. sub FoundList_OnSelect()
  67.     dim count
  68.     dim curSel
  69.  
  70.     count = FoundList.Count
  71.     if count > 0 then
  72.         CheckAll.disabled = false
  73.         UncheckAll.disabled = false
  74.     else
  75.         CheckAll.disabled = true
  76.         UncheckAll.disabled = true
  77.     end if
  78.  
  79.     curSel = FoundList.CurSelCount
  80.     if curSel = 1 then
  81.         Modify.disabled = false
  82.     else
  83.         Modify.disabled = true
  84.     end if    
  85. end sub
  86.  
  87. sub BackBtn_OnClick()
  88. ' Find the active page, front to back (if we are not disabled)
  89.     if PageA.style.display = "" then
  90.         'alert("Error")
  91.     end if
  92.     
  93.     if PageB.style.display = "" then
  94.         bUserStopped = "0"
  95.         PageB.style.display = "none"
  96.         PageA.style.display = ""
  97.         BackBtn.disabled = true
  98.         FixBtnText(false)
  99.     end if
  100.  
  101.     if PageC.style.display = "" then
  102.         PageC.style.display = "none"
  103.         PageA.style.display = ""
  104.         BackBtn.disabled = true
  105.         NextBtn.disabled = false
  106.         FixBtnText(false)
  107.         FoundList.ClearFileList()
  108.     end if
  109.  
  110.     if PageD.style.display = "" then
  111.         PageD.style.display = "none"
  112.         PageC.style.display = ""
  113.         BackBtn.disabled = false
  114.         FixBtnText(false)
  115.     end if
  116.  
  117. end sub
  118.  
  119. sub NetScan_OnScanStopped(when)
  120.     g_bScanStarted = false
  121.     Scanning.style.display = "none"
  122.     NextBtn.disabled = false
  123.     BackBtn.disabled = false
  124.     Cancel.disabled = false
  125.     StopBtn.disabled = true
  126.     Filename.style.display = "none"
  127.     SetProgress(0)
  128.     pctdone.innerHTML = " "
  129.     pctdone_text.style.display = "none"    
  130.     EnableCloseButton true
  131.  
  132.     if bUserStopped = "0" then
  133.         ScanDone.style.display = ""
  134.         NextBtn_OnClick()
  135.     else
  136.         ScanStopped.style.display = ""
  137.         FixBtnText(false)
  138.     end if
  139. end sub
  140.  
  141. sub NetScan_OnFileFound(count)
  142.     ScanFound.innerHTML = count
  143. end sub
  144.  
  145. sub NetScan_OnScanningFile(when, name)
  146.     Filename.innerHTML = Elipse_Path(39, name)
  147. end sub
  148.  
  149. sub NetScan_OnScanProgressUpdate(when, nPctDone)
  150.     SetProgress(nPctDone)
  151. end sub
  152.  
  153. function FixBtnText(bFinish)
  154.     if bFinish = true then
  155.         NextBtn.style.display = "none"
  156.         FinishBtn.style.display = ""
  157.     else
  158.         NextBtn.style.display = ""
  159.         FinishBtn.style.display = "none"
  160.     end if
  161. end function
  162.  
  163. Function makeMsgBox(title,mess,icon,buts,defbut,mods)
  164.    butVal = buts + (icon*16) + (defbut*256) + (mods*4096)
  165.    makeMsgBox = MsgBox(mess,butVal,title)
  166. End Function
  167.